100 POKE53280,.:POKE53281,.
110 PRINT"[147]"
120 PRINT"    [215]ELCOME TO [200]ENRY'S [193]RT [200]OTEL [201][201]"
130 :
140 POKE55,120:POKE56,55:CLR:A$=""
150 REM DO NOT ALTER LINE 8 AT ALL!
160 SYS57812"UNPACKER.89",8,0:POKE780,.:POKE781,.:POKE782,201:SYS65493
170 SYS57812"INPUT ANY.O",8,0:POKE780,.:POKE781,60:POKE782,3:SYS65493
180 SYS57812"PSAVE 1.0.O",8,0:POKE780,.:POKE781,.:POKE782,192:SYS65493
190 :
200 IP=828:UNPACK=51456:HGR=51459
210 PS=49152:REM PS-PIC SAVE
220 :
230 READ NP : DIM R$(NP),C(NP),C$(7)
240 FORX=1TONP:READR$(X),C(X)
250 NEXT:C$(1)="":C$(2)="[153]":C$(3)="":C$(4)="[159]":C$(5)="[154]"
260 GOSUB 1510: REM TITLE SCREEN
270 FORX=1TONP
280 GOSUB1810
290 SYS57812R$(X),8,0:POKE780,.:POKE781,.:POKE782,64:SYS65493
300 :
310 GOSUB1910:IFA$="Q"ORA$="[209]"THENGOSUB1250
320 POKE251,64:POKE252,224:POKE253,204
330 PRINT"[147]";:SYSUNPACK:SYS HGR:POKE53280,C(X)
340 AG=3.34:KK=.
350 POKE198,.
355 IFZ3=0THEN360
357 Z4=Z4+1:Z4=Z4AND15
358 POKE53281,Z4
360 KK=KK+1:GETA$:IFA$=""ANDKK<800THEN355
370 IFA$="Q"ORA$="[209]"THENGOSUB 1250
380 IFA$="S"ORA$="[211]"THEN 470
390 IFA$<>CHR$(133)THEN410
400 Z1=Z1+1:Z1=Z1AND15
405 POKE53280,Z1:GOTO340
410 IFA$<>CHR$(134)THEN416
412 Z2=Z2+1:Z2=Z2AND15
415 POKE53281,Z2:GOTO340
416 IFA$<>CHR$(135)THEN420
417 Z3=Z3+1:Z3=Z3AND1:GOTO340
420 SYSHGR:PRINT"[147]":POKE198,.:NEXT X
430 GOTO270
440 :
450 REM SAVE KOALA PIC
460 :
470 SYS HGR
480 POKE53280,.:POKE53281,.
490 PRINT"[147]":POKE214,11:PRINT
500 PRINT"   SAVE THIS UNPACKED PICTURE? (Y/N)"
510 GETA$:IFA$=""THEN510
520 IFA$="[217]"ORA$="Y"THEN 560
530 IFA$="[206]"ORA$="N"THEN 330
540 GOTO 510
550 :
560 PRINT"[147]":POKE214,9:PRINT
570 PRINT"  ENTER FILE NAME YOU WISH TO SAVE AS."
580 :
590 PRINT"       NAME : ---------------[145][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][154][193][146]";
600 LN%=14:SP$="                "
610 GOSUB680:IFNM$=""THEN490
620 NM$=LEFT$(CHR$(129)+NM$+SP$,15)
630 PRINT"         IS THIS CORRECT? (Y/N)"
640 GETA$:IFA$=""THEN640
650 IFA$="Y"ORA$="[217]"THEN 790
660 IFA$="N"ORA$="[206]"THEN 490
670 GOTO640
680 REM --- INPUT ROUTINE ---
690 NM$="":X%=0:C%=PEEK(646)
700 PRINT"[152][164][157]";:POKE646,C%
710 GETA$:IFA$=""THEN710
720 A%=ASC(A$)
730 IFA%=20ANDX%>0THENX%=X%-1:NM$=LEFT$(NM$,LEN(NM$)-1):PRINT" [157][157]";:GOTO700
740 IFA%=20THEN710
750 IFA%=13 THEN PRINT" ":RETURN
760 IFX%=LN% THEN FORER=1TO2:POKE53280,ABS(255-PEEK(53280)):NEXT:GOTO710
770 IFA$<" "ORA$>"Z"ANDA$<"[193]"ORA$>"[218]"ORA=34 THEN 710
780 NM$=NM$+A$:PRINTA$;:X%=X%+1:GOTO700
790 :
800 REM -- CHECK FOR 'FILE EXISTS' --
810 :
820 OPEN15,8,15,"R0:"+NM$+"="+NM$:INPUT#15,ER,ER$:CLOSE15
830 IF ER<>62 THEN GOSUB1160:GOTO490
840 :
850 REM ---      SAVE PIC       ---
860 :
870 POKE251,64:POKE252,224:POKE253,204
880 :
890 PRINT"[147]":SYSUNPACK
900 :
910 SYS HGR:POKE53280,C(X)
920 NM$=NM$+",P,W"
930 SYS PS,NM$
940 SYS HGR
950 :
960 REM --- CHECK FOR ERRORS ---
970 :
980 OPEN15,8,15:INPUT#15,ER,ER$,Y$,Z$:CLOSE15
990 IFER>. THEN GOSUB1160:GOTO 490
1000 :
1010 REM --    EVERYTHING OK    ---
1020 :
1030 POKE53280,.:POKE53281,.
1040 PRINT"[147]":POKE214,7:PRINT
1050 PRINT"             SAVING COMPLETE."
1060 PRINT"   PLEASE REPLACE YOUR LOADSTAR DISK"
1070 PRINT"   IN YOUR DISK DRIVE AND PRESS SPACE"
1080 GETA$:IFA$<>" "THEN1080
1090 OPEN15,8,15,"R0:PSAVE 1.0.O=PSAVE 1.0.O":INPUT#15,ER:CLOSE15
1100 IFER<>63 THEN 1040
1110 SYS HGR:GOTO 420
1120 :
1130 :
1140 :
1150 REM ---   PRINT DOS ERROR MSG ---
1160 :
1170 POKE53280,.:POKE53281,.:PRINT"[147]        [129] D I S K   E R R O R !
1180 [151]214,10:[153]
1190 A$[178]"PRINT#ERROR #"[170][196](ER)[170]"PRINT#,"[170]ER$
1200 X%[178]22[171][195](A$)[173]2:[153][163]X%);A$
1210 [151]214,21:[153]
1220 [153]"PRINT#        PRESS SPACE TO CONTINUE."
1230 [161]A$:[139]A$[179][177]" "[167]1230
1240 [142]
1250 O[178][194](53270)[175]16
1255 [139]O[167][158]51459
1260 [151]53281,0:[151]53280,0
1270 [153]"LOAD  ATNRE YOU SURE YOU WANT TO QUIT? (Y/N)"
1280 [151]198,0:[146]198,1:[161]AG$
1290 [139]AG$[178]"Y"[176]AG$[178]"(null)"[167]1330
1295 [139]O[167][158]51459
1300 [142]
1320 [143] QUIT
1330 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
1340 [139]ER[179][177]63[167][153]"LOAD":[128]
1350 [153]"LOADSTOPLOAD"[199](34)"HELLO CONNECT"[199](34)",8"
1360 [153]"RUN"
1370 [151]631,13:[151]632,13:[151]198,2:[128]
1380 [143] DATA <TITLE>,<BORDER COLOR>
1390 [131] 10
1400 [131] SLEEP,0
1410 [131] DANCER,0
1420 [131] TOUCAN,0
1430 [131] JAPANESE,0
1440 [131] SCREAM,0
1450 [131] JOUST,0
1460 [131] BOAT,0
1470 [131] FISHY,0
1480 [131] SNAKE,0
1490 [131] FLAMINGO,0
1500 :
1510 [143] TITLE SCREEN
1520 [153]"LOAD":[151]53281,1:[151]53280,1
1530 [153]"         OR`````````````````^"
1540 [153]"         (null)(null)OADSTAR (null)RESENTS(null)PRINT# "
1550 [153]"         /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXPPRINT# "
1560 [153]"                             "
1570 [153]
1580 [153]"  OPENORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
1590 [153]"  (null)    ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^OPEN     (null)PRINT# "
1600 [153]"  OPEN(null)    (null) LEFT$ENRY'S ATNRT LEFT$OTEL RIGHT$RIGHT$  (null)CONT OPEN    (null)PRINT# "
1610 [153]"  OPEN(null)    /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXPCONT OPEN    (null)PRINT# "
1620 [153]"  OPEN(null)     CONT                         OPEN    (null)PRINT# "
1630 [153]"  OPEN(null)                                  (null)PRINT#CLOSE"
1640 [153]"  OPEN(null)       (null)LIDE (null)HOW (null)RESENTER       (null)PRINT#CLOSE"
1650 [153]"  OPEN(null)    (LEN) 1989 BY (null)(null)ASC(null)STR$RIGHT$(null)(null), RIGHT$NC.    (null)PRINT#CLOSE"
1660 [153]"  OPEN(null)                                  (null)PRINT#CLOSE"
1670 [153]"  OPEN/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXPPRINT#CLOSE"
1680 [153]"                                       "
1690 [153]
1700 [153]"     ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
1710 [153]"     (null)  ATNLL PICTURES CRAFTED BY   (null)PRINT# "
1720 [153]"     (null)        LENHRIS LEFT$ENRY         (null)PRINT# "
1730 [153]"     /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXPPRINT# "
1740 [153]"                                    "
1750 :
1760 [153]"   ( (null)RESS ANY KEY TO START THE SHOWCLOSE)";:KK[178]0
1770 [153]"";
1780 KK[178]KK[170]1:[161]A$:[139]A$[178]""[175]KK[179]500[167]1780
1790 [151]53281,5:[142]
1800 :
1810 [151]53281,6:[151]53280,6
1820 [153]"LOADPRINT#ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^";
1830 [129]QX[178]1[164]12
1840 [153]"(null)(null)";:[130]
1850 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
1860 [129]LX[178]217[164]217[170]26:[151]LX,([194](LX)[176]128):[130]
1870 NM$[178]"P."[170]R$(X)
1880 [159]2,8,2,NM$:[153]"";
1890 [129]I[178]0[164]1:[158]IP,2,40:[153]""A$
1900 I[178]ST:[130]:[160]2:[142]
1910 KK[178]0
1915 [151]214,14:[153]:[153]"LIST     (null)HILE THE SLIDE IS SHOWING..."
1916 [153]"      ASC1 LIST- CHANGES BORDER COLOR"
1917 [153]"      ASC3 LIST- CHANGES BACKGROUND COLOR"
1918 [153]"      ASC5 LIST- TOGGLES LIGHT SHOW"
1920 [151]214,22:[153]:[153]C$(C)
1930 [153]"(null)RESS (null) TO QUIT - ATNNY OTHER TO CONTINUEON":[129]D[178]0[164]5
1940 KK[178]KK[170]1:[161]A$:[139]A$[179][177]""[176]KK[177]1000[167][142]
1950 [130]:C[178]C[170]S:[139]C[177]5[167]S[178][171]1
1960 [139]C[179]1[167]S[178][170]1:C[178]1
1970 [137]1920